Mission to McDonaldLand/Mission To McDonaldLand.iso/code.cst/00042_Script_FLYOPEN

Text File | 1998-10-29 | 4KB | 135 lines

on enterFrame
  global heading
  global move
  global updown
  global silly
  global silly2
  global nomore
  global CStop
  global castrestore
  global restoration

  if CStop = 1 then
    if the mouseH < the locH of sprite 30 then set the member of sprite 30 = "Left"
    if the mouseH > the locH of sprite 30 then set the member of sprite 30 = "Right"
    abort
  end if

  if silly = 1 then
        if the locH of sprite 30 < 100 or the locH of sprite 30 > 550 then
          set silly = 0
          puppetSound "off"
          set the member of sprite 30 = "Right"
        end if

    if the mouseH < the locH of sprite 30 then
      set the locH of sprite 30 = the locH of sprite 30 - 20
      set the member of sprite 30 = "RocketL"
    end if
    if the mouseH > the locH of sprite 30 then
      set the locH of sprite 30 = the locH of sprite 30 + 20
      set the member of sprite 30 = "RocketR"
    end if
    if the mouseV < the locV of sprite 30 then set the locV of sprite 30 = the locV of sprite 30 - 20
    if the mouseV > the locV of sprite 30 and the locV of sprite 30 < 300 then set the locV of sprite 30 = the locV of sprite 30 + 20
    if soundBusy(1) then set horrible = 1
    else puppetSound "thruster"
    abort
  end if


  if the locV of sprite 30 < 270 then

    set the locV of sprite 30 = the locV of sprite 30 + 20
    if the locV of sprite 30 > 269 then puppetSound "thump"
    abort
  end if

  if the mouseV < 270 or the mouseH > the locH of sprite 30 - 20 and the mouseH < the locH of sprite 30 + 20 then
    if heading = 1 then set the member of sprite 30 = "Left"
    if heading = 2 then set the member of sprite 30 = "Right"
    set move = 0
  end if

  if the mouseH > the locH of sprite 30 + 19 and the mouseV > 270 then
    set the member of sprite 30 = "Walk Right"
    set heading = 2
    set move = 1
    set the locH of sprite 30 = the locH of sprite 30 + 15
  end if

  if the mouseH < the locH of sprite 30 - 19 and the mouseV > 270 then
    set the member of sprite 30 = "Walk Left"
    set heading = 1
    set move = 1
    set the locH of sprite 30 = the locH of sprite 30 - 15
  end if

  if the mouseV > the locV of sprite 30 and the mouseV < the locV of sprite 30 + 50 then
    if move = 0 and heading = 1 then set the member of sprite 30 = "Left"
    if move = 0 and heading = 2 then set the member of sprite 30 = "Right"
    set updown = 0
  end if

  if the mouseV < the locV of sprite 30 then
    if the locV of sprite 30 > 300 then
      if move = 0 and heading = 1 then set the member of sprite 30 = "Walk Left"
      if move = 0 and heading = 2 then set the member of sprite 30 = "Walk Right"
      set the locV of sprite 30 = the locV of sprite 30 - 5
      set updown = 1
    end if
  end if

  if the mouseV > the locV of sprite 30 + 50 then
    if the locV of sprite 30 < 350 then
      if move = 0 and heading = 1 then set the member of sprite 30 = "Walk Left"
      if move = 0 and heading = 2 then set the member of sprite 30 = "Walk Right"
      set the locV of sprite 30 = the locV of sprite 30 + 5
      set updown = 1
    end if
  end if

  if the locH of sprite 30 > 600 then
    set the locH of sprite 30 = 50
    set the member of sprite 30 = "blank"
    set nomore = 0
    set restoration = 0
    set castrestore = 0
    puppetTransition 11, 1, 30, TRUE
    go next
    set the member of sprite 30 = "Walk Right"
  end if

  if the locH of sprite 30 < 40 then
    set the locH of sprite 30 = 590
    set the member of sprite 30 = "blank"
    set nomore = 0
    set restoration = 0
    set castrestore = 0
    puppetTransition 12, 1, 30, TRUE
    go previous
    set the member of sprite 30 = "Walk Left"
  end if

end


on rightMouseDown
  global silly
  global heading
  global CStop
  if CStop = 1 then abort
  set silly = 1
end

on rightMouseUp
  global silly
  global heading
  set silly = 0
  set the member of sprite 30 = "Fall"
end

on exitFrame
  go the frame
end